Invenzioni & Inventori/Invenzioni and Inventori (Eclectica Publishing) (1996).ISO/invenzio/extraurb/mi055.dir/00139_Script_139

Text File | 1983-01-31 | 2KB | 47 lines

------------- PARAMETRI
------------- CONDIZIONE: mettere in fila le zone sensibili e poi gli hilite

------------- dacast = primo cast dove sono posizionate le zone sensibili
------------- quanti = numero degli hilite presenti sul cast
------------- primocan = primo canale su cui sono posizionate le zone sensibili
------------- primascritta = primo canale su cui sono posizionate le scritte degli hilite
-------------------------------------------------------------------------------------------------------------------

on ATT_HILITE dacast, quanti, primocan, primascritta
  global bloc
  if bloc = false then

    repeat while the mousecast >=dacast and the mousecast <= dacast + quanti - 1
      set miohilite = the mousecast
      if miohilite >=dacast and miohilite <= dacast + quanti - 1 then
        repeat with mm = 1 to quanti
          set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
          if not voidp (primascritta) then
            set the visible of sprite (primascritta+mm-1) to false
          end if

        end repeat
        set the castnum of sprite (miohilite-dacast+primocan) to (miohilite+quanti)
        if not voidp (primascritta) then
          set the visible of sprite (miohilite-dacast+primascritta) to true
        end if

        updatestage
      end if
    end repeat


    if the mousecast < dacast or the mousecast >= dacast + 2*quanti then
      repeat with mm = 1 to quanti
        set the castnum of sprite (primocan + mm - 1) to (dacast + mm -1)
        if not voidp (primascritta) then
          set the visible of sprite (primascritta+mm-1) to false
        end if
      end repeat
    end if
  end if
end